home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / hearts / leafpol9.bas next >
BASIC Source File  |  1999-04-16  |  792b  |  31 lines
  1. Attribute VB_Name = "LEAF_POL"
  2. Global mousex
  3. Global mousey
  4. Global px(36) As Single   'x,y of stem Pole(End)
  5. Global py(36) As Single
  6. Global sx(36) As Single   'x,y of Stem Start
  7. Global sy(36) As Single
  8. Global wx(144) As Single  'Wreath X,Y
  9. Global wy(144) As Single
  10. Global col As Integer        'Colour
  11. Global stx, sty, X, Y, a As Integer
  12. Global f1x, f1y, f2x, f2y As Integer
  13. Global c, d As Integer
  14. Global pi As Double
  15. Global Interval As Double              'For Timeout
  16. Global w As Integer                        'width
  17. Global h As Integer                        'height
  18.  
  19. Sub main()
  20. With LeafPol8
  21.         .Top = 0
  22.         .Left = 0
  23.         .Width = 9600
  24.         .Height = 6800
  25. End With
  26. LeafPol8.Scale (-320, 240)-(320, -240)
  27. LeafPol8.Show
  28. LeafPol8.begin
  29. End Sub
  30.  
  31.